home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / WhiteBox_Final.adf / WhiteBox_Install < prev    next >
Text File  |  1992-04-24  |  1KB  |  94 lines

  1. ; install script for whitebox
  2. (message "Welcome to WhiteBox(tm) by Quasar!
  3. The program to save you $$$."
  4. )
  5.  
  6.  
  7. (set wb_locate
  8.     (askdir
  9.         (prompt "Please indicate where you want the WhiteBox drawer "
  10.             "to be loacated.")
  11.         (help @askdir-help)
  12.         (default @default-dest)
  13.     )
  14. )
  15.  
  16. (set wb_devs
  17.     (askdir
  18.         (prompt "Please indicate your system DEVS directory ?")
  19.         (help @askdir-help)
  20.         (default @default-dest)
  21.     )
  22. )
  23.  
  24.  
  25. ; make a drawer
  26.  
  27. (set wb_path (tackon wb_locate "WhiteBox"))
  28.  
  29. (makedir wb_path (infos))
  30.  
  31. (set @default-dest wb_path)
  32.  
  33. (set disk_space (getdiskspace wb_path))
  34.  
  35. (if (AND (< disk_space 110000) ( NOT res))
  36.     (
  37.         (message "You do not have enough space on your drive"
  38.             "to install the final version of WhiteBox.\n"
  39.             "WhiteBox requires .11 megs of free space to install."
  40.         )
  41.         (exit)
  42.     )
  43. )
  44.  
  45.  
  46. (
  47.     (
  48.  
  49.         (askdisk
  50.             (prompt "Please insert the disk labeled \"WhiteBox_Final\"")
  51.             (help @askdisk-help)
  52.             (dest "WhiteBox_Final")
  53.         )
  54.  
  55.         (copyfiles
  56.             (source "WhiteBox_Final:WhiteBox")
  57.             (dest wb_path)
  58.             (infos)
  59.         )
  60.  
  61.         (copyfiles
  62.             (source "WhiteBox_Final:WhiteBox_Doc")
  63.             (dest wb_path)
  64.             (infos)
  65.         )
  66.  
  67.         (copyfiles
  68.             (source "WhiteBox_Final:devs/WBox.prefs")
  69.             (dest wb_devs )
  70.             (infos)
  71.         )
  72.  
  73.         (copyfiles
  74.             (source "WhiteBox_Final:devs/WBox.pointer")
  75.             (dest wb_devs )
  76.             (infos)
  77.         )
  78.  
  79.         (copyfiles
  80.             (source "WhiteBox_Final:devs/WBox.phbook")
  81.             (dest wb_devs )
  82.             (infos)
  83.         )
  84.  
  85.         (copyfiles
  86.             (source "WhiteBox_Final:libs/reqtools.library")
  87.             (dest wb_devs )
  88.             (infos)
  89.         )
  90.  
  91.     )
  92.  
  93. )
  94.